unit JPEGImage_Frame_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  cxContainer, cxEdit, Menus, cxButtons, StdCtrls, cxImage, cxDBEdit, cxGroupBox,
  DBCtrls
  ,JPEG, JvDBImage
  ;


type
  TJPEGImage_Frame = class(TFrame)
    _cxGroupBox1: TcxGroupBox;
    cxDBImage1: TcxDBImage;
    btnJp: TButton;
    cxButton1: TcxButton;
    DBImage1: TDBImage;
    JvDBImage1: TJvDBImage;
    cxDBImage2: TcxDBImage;
    procedure cxButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses JpUnit;

{$R *.dfm}

procedure TJPEGImage_Frame.cxButton1Click(Sender: TObject);
var JpForm : TJpForm;
begin
  //freeandnil(JpForm);
  JpForm := nil;
  inherited;
  JpForm := TJpForm.Create(Application); //Self
  try
    JpForm.ShowModal;
  finally
    JpForm.Free;
    JpForm :=nil;
    freeandnil(JpForm);
  end;
end;

end.
